home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 July / 64er_Magazin_86-07_1986_Markt__Technik_de.d64 / zviza 2 (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  2KB  |  37 lines
  1. 1 rem *********************************       *     zviza version 2           *
  2. 2 rem *     zeichensatz fuer          *       *     vizawrite (engl.)         *
  3. 3 rem *      bertram hafner           *       *                               *
  4. 4 rem *********************************       *                               *
  5. 5 rem *     zeilen 225,235,245,       *       *     255,265,275 und 285       *
  6. 6 rem *     von gerd hechtfischer     *       *                               *
  7. 7 rem *********************************
  8. 10 i=i+1:reada:ifa=-1goto12
  9. 11 poke49200+i,a:goto10
  10. 12 poke49200+i,1
  11. 15 poke160,0:poke161,0:poke162,0           :rem timer auf 0 stellen
  12. 20 poke789,192                             :rem start des maschinenprg
  13. 30 load"vizawrite 64",8,1
  14. 100 data165,161,201,12,240,3,76,49,234,162,0,189,100,192,201,1,240,25,133,251
  15. 101 data232,189,100,192,133,252,232,160,0,189,100,192,145,251,232,200,192,8
  16. 102 data48,245,76,60,192,169,234,141,21,3,76,49,234
  17. 200 rem  neue zeichen fuer bildschirm            ****************************
  18. 210 rem  eingabeformat der 10 datas:             zieladr low,hi,8 bytes
  19. 211 rem  berechnung der zieladresse:             bc=bildschirmcode des zu
  20. 212 rem  ersetzenden zeichens (satz 2)           zieladr=bc*8+56*256
  21. 213 rem  hi = int(zieladr/256)                   low= zieladr-hi*256
  22. 220 data0,56,102,0,60,6,62,102,62,0         :rem klein ae fuer @
  23. 225 data0,60,153,255,195,249,193,153,193,255   :rem revers-klein ae
  24. 230 data224,56,102,0,60,102,102,102,60,0    :rem klein oe fuer \
  25. 235 data224,60,153,255,195,153,153,153,195,255   :rem revers klein oe
  26. 240 data216,56,102,24,60,102,126,102,102,0  :rem gross ae fuer [
  27. 245 data216,60,153,231,195,153,129,153,153,255   :rem revers gross ae
  28. 250 data232,56,51,102,102,102,102,102,60,0  :rem gross ue fuer ]
  29. 255 data232,60,204,153,153,153,153,153,195,255   :rem revers gross ue
  30. 260 data240,56,0,60,102,108,102,102,108,96  :rem scharf s fuer ^
  31. 265 data240,60,255,195,153,147,153,153,147,159: rem revers scharf s
  32. 270 data80,57,102,0,102,102,102,102,59,0    :rem klein ue fuer *
  33. 275 data80,61,153,255,153,153,153,153,196,255: rem revers klein ue
  34. 280 data240,58,0,0,3,62,118,54,54,0         :rem (NULL) fuer shift ^
  35. 285 data 240,62,255,255,252,193,137,201,201,255: rem revers (NULL)
  36. 500 data-1:rem flag fuer ende
  37.